home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
dblrou1r
/
messbox.cls
< prev
next >
Wrap
Text File
|
1998-11-02
|
495b
|
25 lines
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "MessBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' A messagebox class
Public m_Message As String
Public Sub ShowIt(Owner As Form)
MBox.Show vbModal, Owner
End Sub
Public Sub Change(Message As String)
m_Message = Message
Load MBox
MBox.lblTitle = m_Message
MBox.Hide
End Sub